home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / STRING.BAS < prev    next >
BASIC Source File  |  1996-02-11  |  293b  |  11 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *STRING_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 5 cls 
  7. 10 A$="....String function test for the Nitrous Basic ANSI interpreter....."
  8. 20 for I=1 to len (A$)*2 :for Y=0 to 20 :cursor (0 ,Y):print A$:next Y
  9. 30 L$=left$ (A$,1 ):A$=right$ (A$,len (A$)-1 )+L$
  10. 40 next I
  11.